
   3 :RETURN ;S=0;T=0
   4 E=0;F=0
   6 IF T=15GOTO 700
   7 BC=0;FC=28
   8 CLEAR 
   9 GOSUB 150
  10 O=RND (3)
  11 IF O=1GOTO 800
  12 IF O=2GOTO 2000
  13 A=1;B=1
  20 X=RND (30)-15
  22 Y=RND (20)-10
  25 IF RND (3)=1C=5;GOTO 30
  26 IF RND (3)=2C=0;GOTO 30
  27 C=-5
  30 IF RND (3)=1D=3;GOTO 40
  31 IF RND (3)=2D=0;GOTO 40
  32 D=-2
  40 BOX X,Y,A,B,3
  45 GOTO 175
  54 .
  55 BOX X,Y,A,B,2
  60 IF B>13B=B+5;A=A+6;GOTO 80
  65 A=A+1
  67 B=B+1
  80 IF B>52GOTO 4
  90 X=X+C
  95 Y=Y+D
 100 GOTO 40
 150 BOX -70,-40,5,5,1
 160 BOX 69,-40,5,5,1
 161 NT=0;T=T+1
 162 CX=-50;CY=-40
 163 PRINT "SCORE",#4,S,
 164 NT=2
 170 RETURN 
 175 Q=KN(1)÷30+5
 180 E=E+JX(1)×Q
 190 F=F+JY(1)×Q
 201 IF TR(1)GOTO 300
 205 IF O=1GOTO 880
 206 IF O=2GOTO 2090
 210 GOTO 54
 220 GOTO 175
 230 RETURN 
 300 &(20)=40;&(19)=37;&(21)=15
 330 LINE -70,-40,4
 340 LINE E,F,3
 350 LINE 69,-40,4
 360 LINE E,F,3
 370 LINE -70,-40,4
 380 LINE E,F,3
 390 LINE 69,-40,4
 400 LINE E,F,3
 410 &(20)=0;&(19)=0;&(21)=0
 500 IF E>X-3IF E<X+3IF F>Y-3IF F<Y+3GOTO 550
 510 IF O=1GOTO 880
 515 IF O=2GOTO 2090
 520 GOTO 54
 550 BC=80
 560 FOR N=-5TO 5
 570 LINE X,Y,0
 580 LINE N×RND (5)+X,Y+RND (10),3
 590 MU=1
 600 NEXT N
 610 FOR N=-5TO 5
 620 LINE X,Y,0
 630 LINE N×RND (5)+X,Y-RND (10),3
 640 MU=1
 650 NEXT N
 655 S=S+2
 656 IF O=1S=S+8
 657 IF O=2S=S+18
 659 BC=0
 660 GOTO 4
 700 CLEAR 
 710 CX=-45;CY=0
 720 PRINT "GAME OVER"
 722 CX=-45;CY=-10
 725 PRINT "FINAL SCORE",;PRINT S,
 726 CX=-45;CY=-20
 727 IF S>Z Z=S
 728 PRINT "HIGH SCORE",;PRINT Z,
 730 IF TR(1)GOTO 3
 740 GOTO 730
 800 GOSUB 1000
 810 X=70
 815 Y=10
 820 Y=RND (10)+5
 830 BOX X-2,Y-1,11,1,1
 840 BOX X,Y,2,1,1
 850 BOX X+1,Y+1,7,1,1
 860 GOTO 175
 880 BOX X,Y,15,3,2
 890 X=X-10
 900 IF X<-70GOTO 4
 910 GOTO 820
1000 CX=-25;CY=0
1001 NT=0
1002 FC=82
1010 PRINT "RED ALERT"
1020 NT=100;MU=100
1030 &(20)=210
1035 NT=0
1040 FOR P=1TO 600
1045 NEXT P
1055 CX=-25;CY=0
1056 PRINT "         "
1057 FC=28
1060 NT=2
1070 &(20)=0
1080 RETURN 
2000 GOSUB 1000
2030 X=-70
2040 Y=RND (20)-7
2050 BOX X,Y,3,1,3
2060 BOX X-2,Y,1,5,3
2070 BOX X+2,Y,1,5,3
2080 GOTO 175
2090 BOX X,Y,6,6,2
2100 X=X+9
2110 IF X>+70GOTO 4
2120 GOTO 2040
>RUN 
